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LOADING ZX FORTH 
1. LOADING THE COMPILER 


Load ZX FORTH as a normal type by typing: 
LOAD "X" or LOAD “ZX FORTH” 


The program takes 3% minutes to load. When the T.V. screen stops 
displaying the pattern of bars which indicate a program is loading, STOP 
your recorder. If the load was successful, ZX FORTH will introduce itself 
after a few more seconds. 

If your load was unsuccessful, readjust your volume setting and try 
again. 

At this point you can practice writing and executing ZX FORTH programs, 
but to store and retrieve them from tape, you will also need the EDITOR. 
NOTE: If you have turned off your taperecorder after loading the 
COMPILER then your tape will be in the correct position to begin loading 
the EDITOR. 


2. LOADING THE EDITOR 


To begin loading type the following; 
1 LOAD and press ENTER. 


NOTE: There is a space between the 1 and LOAD and the word LOAD 
must be physically typed out. At this stage “READY CASSETTE” appears 
on the screen. Press the ENTER key again, then start the taperecorder. 
When the Ist of 4 screens has loaded (after about 20 seconds) STOP the 
taperecorder once again. A few seconds after the load is complete, a 
second “READY CASSETTE” appears. At this stage PRESS ENTER once 
again and start the taperecorder. You are now loading the 2nd segment 
of the EDITOR. 


IGNORE ANY “ERROR 4” MESSAGES THAT YOU SEE ON THE SCREEN. 
Use the above procedure to load the last 2 segments of the EDITOR. 


After the 4 segment is loaded, the T.V. screen will display an "ОК", 
indicating a successful loading sequence. 
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3. LOADING FAILURES 


a) If your “READY CASSETTE” message appears immediately after loading 
a screen, then the screen has not loaded. Rewind the tape to the 
beginning of that screen, PRESS ENTER and start the recorder playing 
once again. You may have to adjust the volume level to obtain a 
successful load. 


b) If after the screen has finished playing (the LOADING bars disappear) 
but the program is still in it's LOAD ROUTINE, then re-wind the tape 
slightly and play more into it, until the screen returns. 

Now rewind the tape to the beginning of this screen and replay in the 
unsuccessful screen. 


с) If you do not get an "ОК" message after the 4th segment has been 
loaded, then rewind the tape all the way to the beginning and start 
over. 


IMPORTANT CHARACTERS NOT ON THE 
ZX81/TS1000 KEYBOARD (USED THROUGHOUT MANUAL) 


DESIRED PRESS SHOWS AS 
ASCII CHARACTER SHIFT (ON SCREEN) 
33 i W 
35 # E 
39 | А [ 
64 @ Q g 
91 [ S 
93 ] G 1 


The "BREAK" key is а SHIFT SPACE. 


NOTE: <N/L:E> = NEWLINE OR ENTER 


-2- 


СНАРТЕК 1 
1.0 BASIC OPERATIONS 


The easiest way to learn FORTH is to use it. As Forth is an interactive 
language you can sit down and experiment. In this User's Manual there 
are many examples to illustrate the capabilities of Forth. We suggest you 
try them for yourself. 


1.1 GETTING STARTED 


The detailed start up procedure is outlined in the installation instructions 
provided with which ever system you have. The Forth will announce itself 
and tell you how much free memory you have. The graphic в! is your 
cursor and will appear when the system is ready for input from the 
keyboard. You are now ready to type a command terminated by 
<N/L:E>. Until you have actually typed <N/L:E> you may change your 
commands by using the Rubout Key to delete any unwanted characters. 
Press it once for any character to be deleted, then re-type the remainder 
of the line. 


The simplest command that you can give to ZX-Forth is an empty line. If 
you now type <N/L:E>, your ZX-Forth should respond with OK. It has 
seen there is nothing to do, has finished the line and is waiting for 
another command. You should try this as it will show that your ZX-Forth 
is alive and well and listening to you. 


1.2 WORDS 


The basic command unit of Forth is called a word. A word consists of a 
string of characters delimited by spaces. The only restrictions on words 
are, that по word may contain, a space, <N/L:E>, a Rubout or a 
Graphics character. The word may be any length, with the first 31 
characters being significant, which allows the use of meaningful words. 


After terminating a line of text with <N/L:E>, the FORTH TEXT 
INTERPRETER scans the input, breaking it up into words which will be 
executed by the order of entry. Each Word in Forth has a name (the way 
you refer to it) and a definition (the meaning ie. what it does). 


NOTE: <N/L:E> = NEWLINE OR ENTER 
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To execute а word, the interpreter searches the Dictionary to determine 
the definition of the word. If the word is found, the definition is 
interpreted. If it is not found, the interpreter attempts to convert the 
word to a 16 bit integer. If the word is not a valid number in the current 
Базе, an error message # f) is given. The system returns with cursor for 
new input. This Dictionary may be extended by adding new words which 
call upon existing words (See Section 1.7). 


1.3 NUMBERS 


Numbers сап be expressed іп any base (from 2 ——» 36). The system 
defaults to decimal at power up. However, at any time, you can use the 
commands (words) DECIMAL or HEX or you can define another base to 
establish the number base to treat succeeding numbers both for input 
and output. In general, you should stick to one base throughout all your 
definitions to avoid conflict in interpretation. 


Numbers may be typed in as positive or negative integers. Positive 
(unsigned) integers [Ø —» 65535] are acceptable or signed integers 
[-32768 —» 32767] as well. You may also use double precision numbers 
which are signed integers [-2147483648 —» 2147483647]. These 32 bit, 
double precision numbers must be prefixed by a dot '.'. 


Since all the numbers are stored in binary form, you can take advantage 
of Numeric base selection to perform number conversions to convert a 
decimal number to a Hexadecimal number. For example, type: DECIMAL 
258 HEX . <N/L:E> and you will receive the response 102 OK (but 
remember you are now in HEXADECIMAL). 


1.4 THE PARAMETER STACK 

All computer programs manipulate data by using an established set of 
Parameters. In Forth, most of the Parameters are maintained on a PUSH 
DOWN stack called the Parameter Stack. 

A Push Down stack is a particular arrangement of memory storage; Forth 


Words which refer to the Parameter Stack only do so by accessing the 
top most items. [LAST IN FIRST OUT]. 
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То place a number on the stack you сап type it as part of your input 
command. The Forth Word '.' dot removes the top number from the stack 
and prints it, in the current base, on the screen. For „хере: То р!асе 
numbers оп the stack 2 4 6 8 <N/L:E>. 


The stack now looks like this: 8 
6 
4 
2 


If you now type . <N/L:E> The output will be 8 OK. 


The stack now looks like this: 6 
4 
2 


Now Туре... <N/L:E> 6 4 2 ОК. 
The stack is now empty. 


Suppose you type . <N/L:E> The computer response . ? MSG # 1 (-stack 
underflow errors). 


Forth also has another stack which is called the RETURN STACK which is 
used by the interpreter for storage of return addresses. 


Any error message empties both STACKS. 


1.5 ARITHMETIC 


Forth has a pre-defined set of Arithmetic operators (See Table 1). Since 
Forth uses a Push Down Stack and reverse polish notation the 
Parameters must be on the stack before the operation can be performed 
thus to add two numbers together and display the results, type in: 


5 27 + .<N/L:E> 32 ОК. 
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Breaking this line down into its constituant parts you will find that 


5 Pushes the value 5 onto the stack. 
27 Pushes the value 27 onto the stack. 
+ Removes the top two items from the stack, adds them together 


and places the sum back onto the stack. 
NOTE: the stack has a net loss of 1 item. 


e Removes the top item from the stack and displays it 32 OK. 
Thus you leave the stack just as it was before you started. 
Processing of Comparisons may also be unfamiliar. 

Forth assumes the conventions of positive logic: 

Truth Value 


0 - False 
= Ø- True 


Тһе Forth relational words (such as < > = etc) тау be remembered as 
written between the second stack entry on the left and the top stack 
item, on the right. Thus A B < will test for А<В and leave only a truth 
value on the stack, since both A and B have been removed. 


1.6 STACK MANIPULATIONS 

Other frequently performed operations are classified as Stack 
Manipulations for which ZX-Forth provides a few simple words. These 
words (described in Table |) are generally used to maintain discipline in 
the stack when it contains Parameters. Practising with these words will 
make them useful to you quickly. 


When practising keep in mind 2 elementary rules: 


1. Keep parity — everything on — must come off. 


2. Never remove more items than you have placed on the stack. 
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After you have become familiar with both Arithmetic Operators апа 
Stack Manipulators you will want to create your own complications. For 
example: to square a number use: 


: SQUARE DUP * . ; <N/L:E> OK. 


1.7 DEFINITIONS 


Part of Forth's power lies in the ability to allow you to define your own 
words. For example it might be that we often have to calculate the cube 
of a number. It is easy to define a new word to do the job. 


: CUBE DUP DUP * * . ; <N/L:E> OK 
Here is what each component does: 


: Begins a definition 
CUBE The name of the word to be added to the Dictionary 
DUP DUP * * . The Forth words defining what to do 


2 Ends а definition. 


After making this definition we can calculate and print a cube whenever 
we want. For example: 


4 CUBE <N/L:E> 64 OK 
3 CUBE <N/L:E> 27 OK 
What would have happened if you had used the word CUBE before it was 
defined? Forth would not have allowed it. It would print CUBE ? MSG # 


Ø -(undefined word error). Fortunately for the novice programmer Forth 
has a rich vocabulary of pre-defined words. For example: 


? which prints the contents of the memory locations addressed by the top 
of the stack. 


? has a simple definition 


ТФ. 


Another simple combination that is pre-defined is 1+ which adds 1 to 
the item at the top of the stack. 1 has the definition 


E o 
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1.8 MODES 


The Forth text interpreter operates іп two modes — Immediate execution 
and Compilation. In immediate execution mode each word of the input 
string is looked up in the Dictionary and executed immediately. 


During Compilation, however, most words are not executed, instead a 
reference to them is compiled in the Dictionary. 


The word : places the interpretation in compile mode where as ; returns 
it to immediate execution. The compiled form of the definition consists of 
pointers to the addresses of routines that will be executed by the inner- 
interpreter when the definition is executed. This form of interpretation is 
extremely fast. To distinguish between the modes of immediate 
execution and compilation try the following examples: 


905 . <N/L:E> 905 ОК 

executes immediately (note the interaction) 

: SHOW 905 . ; <N/L:E> OK 

compiles nothing happens yet 

SHOW <М/1:Е> 905 OK 

executes the compiled routine to produce the desired result. 

To learn quickly you must practice with the basic Forth words and words 
you evolve out of experiments. Develop a kind of notation which will 
leave you with a sketch of what you have done (to help you avoid 
making the same mistakes twice). 


Exercises 


1. What is the difference between 
DUP * DUP * and DUP DUP * * ? 


2. What is the difference between 
OVER SWAP and SWAP OVER? 


WORD 


NORMAL 


16 BIT 


+ 


ж 


/ 
i+ 
2+ 
ABS 


MIN 


MINUS 
MOD 


N 


*/MOD 


/MOD 


AND 
OR 
XOR 


Daaa 


TABLE | 


ARITHMETIC OPERATORS 


DESCRIPTION 


Adds 

Subtracts 

Multiply (signed) 
Divides (signed) 

Add 1 

Add 2 

Leaves absolute value 


Leaves largest of 
top two entries 


Leaves smallest of 
top two entries 


(Unary minus) 2's compliment 


Leaves Modulus 
(division remainder) 


Multiplies 2nd and 3rd 
and divides by Ist 


As above but leaves 
remainder 


Apply sign of Ist to 2nd 


Divide 2nd by Ist leaving 
remainder and quotient 


Leave bitwise logical 
Bitwise logical OR 


Bitwise exclusive OR 
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EXAMPLE 


OF 
STACK 
BEFORE 


top 
9:6:2 
962 
962 
962 
962 
962 


9 Gir? 


962 


76 2 
762 


962 
962 


962 
вв “2 


962 
963 
963 
963 


EXAMPLE 


OF 
STACK 
AFTER 


top 
98 
94 
9 12 
93 
963 
964 
9—6 2 


96 


% 2 
T6 "2 


90 


27 


27 0 
У 0 


903 
92 
та 
79 





Double precision and Mixed operator commands also exist (see 
glossary). They are preceeded until either D M or U. 


WORD 


TABLE | 


COMPARISON OPERATORS 


DESCRIPTION 


Compares: leaves 1 
if 2nd less than 151 
otherwise @ 


Compares: leaves 1 
if 2nd greater than 


Ist otherwise (f 


Tests for zero; leaves 


BEFORE 


962 


762 


1 if top entry is equal to 


zero otherwise 0 


Tests for negative; 
leaves 1 if top entry is 


962 


less than zero otherwise @ 962 


Tests for number equals; 


leave 1 if top two equal 
otherwise Ø 


962 


AFTER 


99 


9 1 


960 


960 


960 
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=———— ------- 


WORD 


DROP 
DUP 


— DUP 


OVER 


ROT 


SWAP 


TABLE 111 


STACK MANIPULATION OPERATORS 


DESCRIPTION 


Prints item on top 
of stack 


Discard top entry 
Duplicates top entry 


Duplicates top entry 
if it is non zero 


Copies 2nd entry over 
top entry 


Rotates top 3 entries 
Swaps top 2 entries 
Prints 2nd item right 
justified in a field 


of Ist entry 


Copy top of Return stack 
to computation stack 
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ВЕҒОКЕ 


221 


4321 


321 


321 


ret. 
20 30 
газ 


АЕТЕК 


12 


32 


са“ | 


3211 


320 


27 L2 


4213 


did. 4 


ret. 
20 30 
таз а 





СНАРТЕК 2 


2.0 DATA DECLARATION 


Forth allows you to set aside memory for constants, variables and arrays. 


2.1 CONSTANTS 


To assign names to constants you use the word CONSTANT. These are 
used as they are easier to recall than the number or are used often. For 
example: 


5280 CONSTANT FT/MILE <N/L:E> OK 
Creates a new word FT/Mile and assigns it a value 5280. After FT/Mile 


has been defined, you can use it as you would 5280 to place value on the 
STACK. For example: 


3 FT/MILE * 
Computes the number of FT in three miles. 


NB. Once a value has been defined as a constant its binary value is 
independent of the current number base. 


2.2 VARIABLES 


The Forth word VARIABLE names a location whose value is likely to 
change. Suppose we wish to keep the score of a game of Space Invaders 
then we can declare a variable as follows: 


@ VARIABLE SCORE <N/L:E> OK 
Initial value. 
When you invoke a variable by name, its address is placed on the stack. 


The FORTH WORD @ replaces the address on the stack by the contents 
of the 2 bytes at that address. For example: 


To place your score on the stack you use 
SCORE @ <N/L:E> OK · 
Sometimes you need to examine the contents of a variable, the Forth 


word ? outputs the value of the variable whose address is on the top of 
the stack. 
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For example: 
SCORE ? <N/L:E> OK 


The word ! is used to store а 16 bit value into a location. ! uses the value 
which is the 2nd item on the stack and stores it into the address which is 
on the stack. For example: 


to set the score to 100 
120 SCORE ! <N/L:E> ОК 


The word +! adds a value to a variable (location). For example: 


to increase your score Бу 100 


100 SCORE +! <N/L:E> OK 


NB. Since the Parameter is used to store intermediate values the need 
for temporary variables is eliminated. 


2.3 ALTERING NUMBER BASES 


Forth has a user variable called base which stores the current 'number 
base'. You may alter this variable to any value between 2 and 36 to 
select bases other than decimal and hex. For example, if you wish to 
work in binary, then you may do this by 


2 BASE ! <N/L:E> OK 


Then all the following numbers will be printed in binary. Remember, 
input must also be in binary. 


2.4 ARRAYS 


Arrays of data are important in many applications. For example, instead 
of having 10 variables TO, ТІ, T2 etc, it would be better to use 19 
successive data elements TEMP. Through suitable addressing arithmetic, 
you may compute the required elements' addresses. This is more flexible 
to program as well as more economical of Dictionary space. 


To set aside space in the Dictionary for arrays, you use the Forth word 
ALLOT. In the case of TEMP above, you write: 


Ø VARIABLE TEMP 18 АШОТ <N/L:E> ОК 
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where: 0 VARIABLE TEMP - defines a variable (2 bytes wide) named 
TEMP 


18 - puts 18 on stack 


ALLOT - allocates a further 18 bytes for Temp 
To assess the n'th element place n on top of the stack and follow it with: 
2 * TEMP + @ <N/L:E> OK 


* NOTE: Elements are numbered 0-9 NOT 1-10 
- values for n outside this range will give unpredictable results. 


To initialise the n'th element type 
(value) n 2 * TEMP + ! <N/L:E> OK 


2.5 OTHER MEMORY OPERATIONS 
There are 4 words which can be used to manipulate memory locations. 


1. СМОУЕ - томе the specified quantity of bytes (151 on stack) 
from address (3rd on stack) to address (2nd on stack). 
Contents of lowest address moved first. 


Example 
16396 8000 64 CMOVE <N/L:E> OK 
Example moves 64 bytes from 16396 to 8000. 


2. FILL - fills memory at address (3rd on stack) with quantity 
(2nd on stack) of bytes (1st on stack). 


Example 

8000 64 0 FILL <N/L:E> OK 

Puts 64 bytes of g from 8000 onwards. 

3. ERASE - fills a block of memory with хего'5. This is equivalent 
to @ FILL. 

Example кү 
8000 64 ERASE <N/L:E> ОК 

Erases 64 bytes starting from 8000. 
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4. BLANKS - fills a block with spaces. 
(EQUIVALENT to 32 FILL, where 32 is the ASCII code for 
a space.) 


Example 
8000 64 BLANKS <N/L:E> OK 
Puts 64 32's from 8000 onwards. 


TABLE IV 


MEMORY OPERATIONS 


WORD DESCRIPTION BEFORE AFTER 
@ Fetch contents of item 

whose address at top 

of the stack 100 — 236 


! Stores the 2nd item 
on stack into location 


whose address is on top of stack 3 20000 empty 
Т Fetches and prints 

contents of item whose 

address is on top of stack 100 empty 
+ | Increments the location 


whose address is on 
top of stack by 2nd 
item on stack 701 2000 empty 


CQ Fetch a byte whose 


address at top 
of stack 100 20 


Ка Stores a byte (2nd) into 
the location at top : 
of stack 254 2000 empty 
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ЕХЕКСІ5Е5 


1. Define EXCHANGE to exchange the contents of 2 variables that is if 
A and B are variables then the result of the command A B 
Exchange should be to place the value of A in B and value of B in 
A. 


2. Define TRANSFER to move data between two arrays of the same 
length. 


FILE: ZX-22 


CHAPTER 3 


3.0 INPUT AND OUTPUT 


In order to perform any function, it is necessary to input data into the 
computer and obtain the results. Forth has various ways of doing this. 


3.1 CHARACTER SET 


ZX-Forth uses standard ASCII for its character codes (See Table V). These 
codes are standard on most other computers and are different to 
Sinclair's (TS1000/ZX81) character codes. The reason for choosing ASCII, 
is that the language becomes more transportable between different 
computers. 


However, ZX-Forth uses codes 16-25 and 128-191 for graphics which are 
not standard on all other computers. This is done as there is no graphic 
set that is standard. 


3.2 INPUT OF INFORMATION 


Forth has no real input commands as such, since the numbers of 
Parameters for each command is stored on the Parameter stack. This is 
usually placed on the stack preceeding the execution of the command. 
For example, if we wish to calculate (4х2--Зх-Ғ2) for any value x, then it 
is easy to define a command which finds x? and then one to calculate the 
rest of the cubic. 
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Ехатріе 
: CUBE DUP DUP * * 
: CUBIC DUP CUBE 4 * SWAP 3 * — 2 + . ; <N/L:E> OK 
Define a function CUBIC to calculate the cubic. The value of the 
Parameter x to be calculated is placed on the stack before the command 
is used. This is done as follows: 
қ CUBIC <N/L:E> 2026 OK 
4x? —3х-+{2 
Thus, any parameter may be passed into a command and no input 


command is needed. 


However, Forth does have a command to accept a key from the 
keyboard. This Forth word is KEY. 


This is similar to the INKEY$ in Basic, however, KEY waits for a key to be 
pressed where as INKEY$ does not. 


Suppose during the execution of a program, you need some input from 
the keyboard; 

For example: 

DO YOU WANT INSTRUCTIONS Y OR N? 

KEY then places the ASCII value of the key pressed into the Parameter 


stack where it may be examined. 


In Forth, there is no routine to input a number more than 1 digit from the 
keyboard. However, there is a routine listed in the Appendix to input a 
number called INPUT. Try and write a routine to do this yourself. 


3.3 OUTPUT AND PRINTING 
Forth offers you several different ways of outputting information. The 
most frequently used is output of a line of text. The Forth word used for 


this is ." followed by a blank, followed by the message and terminated 
Бу“. 





For example: 


. " THIS IS A LINE OF TEXT" <N/L:E> prints ‘THIS IS A LINE OF ТЕХТ on 
the screen. 


Any further output will appear on the same line. The Forth word CR 
performs a Newline or Carriage Return and all proceeding output starts 
at the beginning of a new line. 


ZX-Forth automatically scrolls the screen if the current position is at the 
bottom of the screen. 


A further way to print a character can be achieved by the Forth word 
EMIT. This prints the character whose ASCII value is at the top of the 
Parameter stack. This may have been put there by the KEY command. 


This also allows you to print a character which is not directly available 
from the keyboard. 

For example: 

128 EMIT <N/L:E> ДЕ ок 


Prints the character with ASCII value 128, which in this case is a 
GRAPHIC SPACE. 


3.4 NUMBER PRINTING 


The simplest way to print a number is to use the Forth word . (dot), 
which you have already met. This prints the top number on the stack in 
the minimum field width; ie. no preceeding zero's and one space after 
the number. Number formatting may be achieved by the following Forth 
words, .R prints the number in a right justified field of a given width. 


For example: 
103 4 .R<N/L:E> 1030К 


Prints 103 in a field of 4 characters. 


Forth also gives you the ability of pictured output, which enables you to 
format the output as required. 


< # starts the pictured output definition and it expects a double precision 
number on the stack. 
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As you usually use single precision numbers, a single precision number 
may be converted to a double precision one by the Forth word $—>D. 
This converts the top number on the stack to a double precision one. 
Within the pictured output you may use the following Forth words. 


# puts the next digit into the output buffer starting from the lowest 
value. 


ie. 112 first # puts 2 into buffer, then the next # puts 1 into the buffer 
etc. 


# 5 puts the remaining digits into the output buffer if non-zero. 


HOLD used as 46 HOLD puts the character whose character code is 46 
into the next part of the buffer. 


# > terminate pictured output leaves the address and length of the 
output buffer on the stack. Hence the string may be outputted using the 
TYPE command. 

Example 

Suppose you define a new command PIC to produce pictured output. 

: PIC < # # НОО # #5 #>; <N/L:E> OK 


This will print any double precision numbers as (....х. xx). 


Example 
11473. PIC TYPE <N/L:E> 114.73 OK 
0. РІС ТҮРЕ <N/L:E> 000 OK 


It takes practice to master the art of using numeric pictured output. 
Double precision commands exist (See Glossary). 


3.5 OTHER PRINTING OPERATIONS 


ZX-Forth has four further commands to aid formatting on the screen. 


SPACE This word as it suggests, prints a space on the screen 
(Equivalent to 32 EMIT). 








SPACES This word is used to print a given number of spaces, specified 
by the number on top of the stack. 


For example: у 
5 SPACES <N/L:E> ,, <., ок 


prints 5 spaces on the screen. 


HOME This word moves the print position to the top left hand corner of 
the screen. All further output starts at the top of the screen. 


CLS This word clears the screen and moves the print position to the top 
left hand corner of the screen. 
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TABLE V 















ASCII .. CHARACTER 
CODES / MEANING 


0-7 CONTROL CHARACTERS 

8 RUBOUT -shift '@ 
9-12 CONTROL CHARACTERS 

13 RETURN 

14 CURSOR ОМ 

15 CURSOR OFF 


26-32 NOT USED 

33 (А -shift МУ 
34 T -shift 'P' 
35 # -shift 'E' 
36 -shift 'U' 
37 $ 


39 ' (apostrophe) -shift ‘A’ 
( -shift T 
) -shift 'O' 
4 -shift 'B' 
43 + -shift 'K' 
44 , (comma) -shift '.' 
45 — -shift ‘J’ 


-shift 'V' 


С лљољ—0о ~ 


55 
56 
57 
58 
59 
60 
61 


Яо 


66 
67 


69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 


о со 


ОА к А = - 


м< ха <слоопотор22гх< - тотпопе р 
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-shift 7” 
-shift 'X' 
-shift 'N' 
-shift 'L' 
-shift ‘M’ 
-shift 'C' 
-shift 'Q' 


91 [ -shift 'S' 
92 
93 ] -shift 'G' 
94 | 
95 —— 
96-127 same as 64-95 (Lower 

Case) 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 


ul EIN 





~. e, 
A 
EV 


— .-- 


-shift '7' 
-shift '6' 
-shift '8' 
-shift '5' 
-shift D 
-shift F 
-shift R 
-shift T 
-shift 1 
. -shift 2 
-shift 3 
-shift 4 
-shift 9 


Ї IU | ` 
NAS кән сән саз Боа жз ШЕК | |^ у ДЕБ ES n ЕО пар ШЕ 
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-shift ‘RETURN’ 


-shift Y 
-shift 'H' 


баса пєй CON оса са са Ed C3 (81 NO m ту [2] 23 a By E ЕЙ FA 51 сч ЕЈ са па са E EX Вл 


159 
160 
161 
162 
63 
164 
165 
166 
167 
168 
169 
70 
71 
72 
73 
74 
75 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
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СНАРТЕК 4 


4.0 CONDITIONAL BRANCHES AND LOOPS 


Forth provides conditional branching statements which alter the order in 
which commands are executed depending upon a given condition. Forth 
also provides looping structures to repeat a sequence of commands a 
given number of times. 


NB: Condition branches and loops cannot be executed directly and must 
be included with a definition. 


4.1 CONDITIONAL BRANCHES 


Three compiling words IF, ELSE, ENDIF (or THEN) are used to compile 
conditional branches in a definition. In Forth the IF command examines 
the top of the stack to determine which branch will be taken. A 
conditional branch has the following structure. | 


DEFINITION condition IF (true) this ELSE (false) that THEN continue; 


where 

DEFINITION _+ begins the definition. 

condition - places a condition (non-zero/zero) on the stack. 
IF - removes and tests the number on the stack. 
this - executes this if number non-zero (true). 

ELSE ЖУ; 

that - executes that if the number is zero (false). 
THEN - 

continue - continues from both lines. 


IF marks the place where the top of the stack is popped and examined. If 
the value is non-zero everything up to ELSE is executed and at ELSE 
execution skips to THEN. On the other hand, if the stack value is zero, 
everything up to ELSE is skipped; after ELSE is executed. 


The ELSE that bit is optional and may be omitted if not needed. 


The truth value on the stack is often the result of a comparison that uses 
one of the Forth comparison operators ie. < > = etc. (See Chapter 1). 








Two truth values тау be combined by the Forth words AND OR ХОВ. 
For example: 


AND - leaves true if top two truth values on stack are true. 
OR - leaves true 1! or both are true. 
XOR - leaves true if 1 is true and other is false. 


For example: 

1 1 AND gives 1 

1 0 AND gives Ø 

(See truth tables in Table VI) 


For example, suppose we wish to define a Forth word to mark 
examination papers to say 50% Pass, less than 50% Fail. 


We may define a word as follows: 
: EXAM 50 < IF. "FAIL" ELSE "PASS" THEN CR ; <N/L:E> OK 


Then to use the word type 
Mark EXAM <N/L:E> 
If less than 50, then the computer prints FAIL 


If the mark is greater than or equal to 50, the computer prints PASS. 
4.2 INDEFINITE LOOPS 


Forth also includes a series of Looping structures which repeat a set of 
commands either until a given condition is satisfied or not, or a set 
number of times. In this section we will look at the former. 


The first type is 

: EXAMPLE BEGIN process condition UNTIL continue: <N/L:E> OK 
where 

: EXAMPLE  - begins definition. 


BEGIN - marks the beginning of an indefinite loop. 

process - defines the action to be executed. 

condition - leaves a truth value on the stack. 

UNTIL - pops the value off the stack and returns to BEGIN if the 


condition is zero (false). 














continue ;  - continue execution when value is true (non-zero). 


NB: END and UNTIL may be used interchangably. 

For example: Suppose you wish to search through memory for a given 16 
bit number and print the address of the number. We can define a word 
search to do this for us. If we are searching for the first occurrence of 
zero from the beginning of memory, 


: SEARCH 0 BEGIN DUP @ SWAP 1+ SWAP Ø = UNTIL 1 — . ; <N/L:E> 
OK 


The code between BEGIN and UNTIL is repeatedly executed until the 
value found 15 0. The @ before the loop is initialisation in the case the 
start address of the search. The code after UNTIL prints the address of 
the occurrence of 0. 


A second form of indefinite looping is 
: ЕХ1 BEGIN condition WHILE process REPEAT continue; <N/L:E> ОК 


where 

:ЕХ1 - begins definition. 

BEGIN - marks the beginning of an indefinite loop. 
condition - leaves a truth value on the stack. 

WHILE - if the truth value is true (non-zero). 

process - then process executed. 

REPEAT - returns to begin. 

continue ;  - if truth value false (zero) then continue is executed. 
Example 


to search through memory as before. 
: SEARCH 1 0 BEGIN DUP (2 WHILE 1+ REPEAT . ; <N/L:E> OK 


try to work this out for yourself. 


The final kind of indefinite loop is of the form 
: EXZ BEGIN process AGAIN ; <N/L:E>. 


Which is repeated indefinitely. This is an infinite loop and can only be 
terminated by the break key. With ZX-Forth, the break key is SHIFT 
SPACE. 
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4.3 RETURN STACK 


Forth uses two stacks, the Parameter Stack and the Return Stack. This is 
to keep Parameters and Return addresses from getting confused. There 
are several commands to transfer Parameters from one stack to another. 


>R removes a number from the Parameter stack and places it on the 
Return stack. 
R< removes a number from the Return stack and places it on the 


Parameter stack. 


NB: |f used in a definition, both must be used to compliment each 
other. 


R or | makes a copy of the number or the top of the Return stack onto 
the Parameter stack. The return stack is not altered. 


Try the following: 


Define a Forth word 2SWAP, to swap the first 2 numbers of the stack 
with the third and forth, numbers of the stack. That is after, 


12345 2SWAP the stack should contain 
14523 (with 3 on the top). 


4.4 CONTROLLED LOOPS 


A controlled loop is one which is repeated a certain number of times. 
Forth provides a DO . . . LOOP structure for this. This takes the form 


: Ten-times 10. DO process LOOP ; <N/L:E> OK 


: Ten-times  - begins definition 


12 - gives terminating value 

@ - gives starting value 

DO - transfers loop Parameters to the Return stack. 
process - 

(ООР: - repeats the loop 19 times. 


Within the loop, the loop index may be accessed by the Forth word I. 


Suppose we wish to print the numbers 2-9 on the screen, опе per line. 
We can define a Forth word NO. to do this. 
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: МО 19 Ø DO СВТ. LOOP ; <N/L:E> OK 


If you wish to increment Бу a step other than 1 you may use the ОО... 
+ LOOP structure. For example: 


: BY2 18 Ø DO 2 (step) +LOOP ; <N/L:E> OK 


where 

: BY2 - begins definition. 

100 - Parameters of loop. 

DO - begin loop (as before). 

2 - puts step onto stack 

+LOOP - removes step from stack and adds to current loop index. 


If the result is less than the terminating value, the loop is 
repeated with new index value. Otherwise loop is 
terminated. 


The step may be positive or negative. By using a negative step, the loop 
will count down. However,.the Parameters must be placed in reverse 


order i.e. Ø 10 rather than 1g Ø. 


For example, to print the numbers 1g to 1, the following Forth word may 
be defined. 


: TENTOI 212 DO CRI. —1 +LOOP ; <N/L:E> OK 


In this case, LOOP checks to see if the loop index is greater than the 
terminating value and repeats if it is true. 


If you wish to leave а DO. . . LOOP construct before the loop has 
finished, for example: 


If a certain condition is met, then the command LEAVE will cause the 
loop to terminate at the next LOOP or +LOOP. 


Example 
: ЕХЗ 199 DO | DUP 6 = IF LEAVE ELSE . THEN LOOP ; <N/L:E> 


is a rather clumsy way to print the numbers 0-5, but illustrates the use of 
this record. 
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Exercise 


1. Define POWER so that m" POWER computes the n'th power of m, 
for non-negative n. 


4.5 NESTING STRUCTURES 
DO...LOOP and Е... THEN sequence may contain either such 


sequence but only if they are properly nested; that is one entire ОО... 
LOOP may be inside another but they may not overlap! For example: 


RIGHT: 
ауы, 

... IF 1Ø Ø DO . . . LOOP THEN 

WRONG 


... 119900... THEN LOOP 
Exercise 


1. How would you define MAX MIN and ABS? (All supplied as 
standard ZX-Forth). 


2. Define FACTORIAL to compute the factorial of a number. 


FILE: ZX-36 


TABLE VI 
AND OR XOR 
. 12 19 19 
1 1g 111 1 Øl 
9 9p y. 38: зу; g 12 
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5.0 TAPE STORAGE 


Forth normally works interactively and once a definition has been typed 
in there is no way of changing it without re-typing it. Forth also provides 
a method of storing the code on a numbered screen. A screen consists of 
16 lines of 64 characters and programs are stored on a screen using the 
Editor - (see Editor Manual). 


5.1 SAVING PROGRAMS 


Once the program has been written on the screen, it is possible to save 
it on cassette. To do this you must set up your computer for saving (See 
relevant chapter in computer manual). The command FLUSH tells ZX- 
Forth to save the current screen on cassette. If you type FLUSH <N/L:E>, 
ZX-Forth will respond READY CASSETTE. Now press record on your 
cassette recorder and press <N/L:E>. 


One screen takes 30 seconds to save or FLUSH. If you type any character 
other than <N/L:E>, then the command is aborted and the cursor re- 


appears. 
5.2 LOADING PROGRAMS 
ZX-Forth gives you two words to load a program from tape. 


LIST is used to list a screen in the form n LIST where n is the screen 
number. 


If screen n is already in memory, it is listed on the screen. If it is not, 
ZX-Forth will try to load it from cassette. Connect your computer for 
loading (See manual) and position the tape to the silent part immediately 
preceeding the screen you want to load. Press <N/L:E> and then play on 
the cassette recorder. 


If the screen loads correctly, it will be listed on the screen. If, however, 
it does not, or you attempted to load the wrong screen, then the READY 
CASSETTE will be repeated. Try again, use <N/L:E>, or any other key to 
abort as with FLUSH. 
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Тһе variable FIRST contains the screen number of any screen currently їп 
memory. 


This can be examined by 


FIRST ? <N/L:E> 
If you wish to stop loading, press space key. 


LOAD is used to compile the definition in a screen. This must be 
preceded by the screen number as with LIST. If the screen is not already 
in memory, it will be loaded from cassette as for LIST. Once the screen 
is in memory, it is treated as if it had been typed from the keyboard. 


5.3 SCREEN FORMAT 


Each screen has a screen number, and consists of 16 lines of 64 
characters. However, so that Forth can use these efficiently, it is 
necessary to terminate the screen by special Forth words. 


">" at the end of the final line of the screen commands ZX-Forth to 
LOAD the next consecutive screen when the screen is loaded from tape 
using the LOAD command. 


This is used when programs occupy more than one Forth screen. ZX-Forth 
compiles the screen in memory and then prints READY CASSETTE to 
LOAD the next screen. 


: 5 at the end of the final line of the screen terminates the LOAD 
command. 


This is used for the last screen of the program. Failure to place a 
terminator at the end of the screen could cause the system to crash. 


NB: Only one screen may be stored in memory at any one time and will 
be overwritten when another screen is loaded. 


The commands to insert ;5 at the end of the screen are: 
TOP 
1021 m 
Єз 


= о——————_—_—_—_—_—_—__ 
CHAPTER 6 


6.0 OTHER USEFUL COMMANDS 


As Forth has such a rich vocabulary, it is impossible to list it all here. The 
only way to get to know it, is to practice by reading the GLOSSARY and 
trying the commands. 


| FORGET This word is used to forget a definition. It is used іп the form 
FORGET word <N/L:E> 


NB: This will forget the word word and all the following words defined 
after it. 


For example, if we define the following words 

: WDI ." HELLO " ; <N/L:E> 

0402 . Hi” ; <N/L:E> 

ОГОЗ ..” BYE " ; <N/L:E> 

then 

FORGET WD2 <N/L:E> OK 

will remove WD2 and WD3 from the Dictionary but not WDI. 


VLIST This word will list all the words in the Dictionary. 
The most recently defined word is listed first. 


The listing can be stopped at any time by use of the break key (SHIFT 


SPACE). 
BYE This word is used to exit ZX-Forth and return to Basic. 
TASK This word is a dummy definition which is 
| conventionally used to start a program. Whenever you 
| wish to forget the program you may use FORGET 
| ТА5К. 
IMMEDIATE Normally, when a word is encountered within a 


definition, it is compiled азраг! of the definition. If 
you require a word to be executed when it is 
encountered, even within a definition, then the word 
may be declared to be Immediate by following its 
definition. 


MM GISELE ROMA к A SR MU BRI TATE SE а NU P TTA MIT T NIIT P лы Л 
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Ғог ехатр!е: 
: WD3 ." IT IS NOW COMPILING” ; IMMEDIATE <N/L:E> OK 


This then, prints the message whenever WD3 is encountered and it is not 
compiled. 


"ап" | and LITERAL 


Sometimes it is convenient to calculate a constant with a definition 
without having to calculate it each time the definition is executed. The 
Forth word [ temporarily places the computer into interpret mode and 
anything typed will be executed immediately. The word ] places the 
computer back into compile mode in a definition. 


The Forth word LITERAL places the top value on the stack into the 
current definition as a constant. Literal is immediate and so executed 
when encountered. 

For example: 

The following two definitions are equivalent 

: РА 3[13 + 2* | LITERAL +.: <N/L:E> 

КРЛАВО МЕНЕ 


This is used when the result of a calculation is not known and saves you 
from working it out. 


VOCABULARY Forth lets you create your own vacabularies so that all 
the words for one program may be kept together. 


Vocabularies should be declared as immediate. For example, to define a 
vocabulary called mine: 

VOCABULARY MINE IMMEDIATE <N/L:E> 

To place definitions within your ный you type VOCABULARY 
NAME DEFINITIONS. 

For example: 


MINE DEFINITIONS <N/L:E> 


294 


Си ННВ ње ны нанын аа РЕ ы еден ЕЛГЕН: аа Атал аа аталы лы ла АНИ аи | 


All definitions proceding this will Бе placed іп the vocabulary MINE until 
you again change vocabulary. From within a vocabulary, you may assess 
all the words within the vocabulary and all words in the vocabulary the 
current vocabulary was defined in. 


If you wish to use a word in a different vocabulary, then you proceed the 
word with the vocabulary name. 


The basic vocabulary is FORTH. 


FAST and SLOW 


These words select Fast or Slow mode on your computer. 


MEM 


This word prints out your remaining free memory. The number of bytes, 
printed in the current base. 
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APPENDIX А — ZX-FORTH ERROR CODES 


ERROR CODE 


17 


18 


19 


20 


21 


22 


23 


24 


ЕККОК МЕ55АСЕ 

COMMAND МОТ ІМ DICTIONARY 
STACK EMPTY 

DICTIONARY FULL (OUT OF MEMORY) 
INCORRECT ADDRESS MODE 
WARNING: NAME NOT UNIQUE 
STACK FULL (OUT OF MEMORY) 
WORD MUST BE USED IN DEFINITION 
EXECUTION ONLY 

UNMATCHED CONDITIONAL 
DEFINITION NOT FINISHED 

IN PROTECTED DICTIONARY 

USE ONLY WHEN LOADING 

OFF CURRENT EDITING SCREEN 


DECLARE VOCABULARY 
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НЕРИР) 
APPENDIX В — USEFUL ROUTINES 


The INPUT routine listed here inputs a number from the keyboard when 
executed, terminated by a Newline, leaving it on the stack. 


: INPUT PAD 1+ 64 EXPECT . PAD 
(NUMBER) DROP DROP ; 

INPUT. will input a double precision number 
: INPUT.. PAD 1+ 64 EXPECT .2 PAD 
(NUMBER) DROP ; 


A set of cursor routines are listed below. 


They work on a memory mapped screen, and so the routine MCLS clears 
and memory maps the screen. 


: MCLS HOME 704 SPACES HOME ; 


The routines D — Down, U — Up, F — Forward, B — Backwards. 
: D 16442 CQ) 24 < IF 16442 СО 

1 + 16442 С! 33 16398 +! 

ЕМОЈЕ ; | 

; U 16442 СО Ø > IF 16442 CQ) 1— 

16442 C! —33 16398 +! ENDIF ; 

: Е 16441 СО 32 < IF 16441 CQ) 1 + 

16441 C! 1 16398 +! ENDIF ; 

: В 16441 СО @ > IF 16441 CQ) 1— 

16441 C! —1 16398 +! ENDIF ; 


The following routines implement PLOT and UNPLOT and illustrate the 
use of machine code from within FORTH. 


HEX 

: PIT 4030 C! :CODE ЕТ C 01 C, 
C5 C, 4B C, 45 C, CDC, 

BB2 , СІ C, C3C, NEXT , 
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SMUDGE 
: PLOT 9B PIT ; 


: UNPLOT Af PIT ; 
Used by x-coordinate y-coordinate PLOT 


The origin being (2,2) at the bottom left hand corner. 


NOTE: If the coordinates are off of the screen, you will be returned to 
BASIC, so be careful. 


APPENDIX C — LARGER RAMS 
For users with larger RAMPACKS: 


For a 32K RAM: 


POKE 16388, Q 
POKE 16389, 192 
NEW 

LOAD "ZXFORTH" 


For those with 48K and 64K RAMS; 


POKE 16388, 255 
POKE 16389, 255 
NEW 

LOAD "ZXFORTH" 


TECHNICAL NOTE: “:СОПЕ” definitions will not work above the 32K 


а" 
е. 


boundary and ":" and “variable” definitions will work up to the 64K 
boundary. 


APPENDIX D — FORTH PRIMERS 


2 good sources for learning FORTH are; 


“STARTING FORTH” by BRODIE. Prentice Hall and 
“DISCOVER FORTH” by HOGAN. Osborne/McGraw Hill. 
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нанына зета INDIANA ње. ин IN казнь SRLS Da C M NR AUN ARNESON OE — 
FORTH GLOSSARY 


This glossary contains all of the word definitions in Release 1 of ZX- 
FORTH. The definitions are presented in the order of their ASCII sort. 


The first line of each entry shows a symbolic description of the action of 
the procedures on the parameter stack. The symbols indicate the order in 
which input parameters have been placed on the stack. Three dashes 


--" indicate the execution point; any parameters left on the stack аге 
listed. In this notation, the top of the stack is to the right. 


The symbols include: 


addr memory address 

b 8 bit byte (i.e. hi 8 bits zero) 

с 8 bit ascii character (hi 8 bits zero) 

d 32 bit signed double integer, most significant portion with 
sign on top of stack 

f boolean flag. 9-false, non-zero-true 

ff boolean false flag- 

n 16 bit signed integer number 

U 16 bit unsigned integer 

tf boolean true flag-non-zero 


The capital letters on the right show definition characteristics: 


C May only be used within a colon definition. A digit indicates 
number of memory addresses used, if other than one. 

E Intended for execution only. 

LO Level Zero definition of FORTH-78 

L1 Level One definition of FORTH-78 

Р Has precedence bit set. Will execute even when compiling. 


A user variable. 


Unless otherwise noted, all references to numbers аге for 16 bit signed 
integers. For 32 bit signed double numbers, the most significant part 
(with the sign) is on top of the stack. 


All arithmetic is implicitly 16 bit signed integer math, with error and 
under-flow indication unspecified. r 
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! п аддг --- LO 
Store 16 bits of n at address. Pronounced "store". 

| CSP Save the stack position in CSP. Used as part of the compiler 
security. 

# dl --- 42 LO 


Generate from a double number а1, the next ascii character 
which is placed in an output string. Result d2 is the quotient 
after division by BASE, and is maintained for further 
processing. Used between and. See S. 

#> d --- addr count LO 
Terminates numeric output conversion by dropping d, leaving 
the text address and character count suitable for TYPE. 

#5 dl --- а2 [О 
Generates ascii text іп the text output buffer, by the use of # 
, until a zero double number n2 results. Used between <# 


and #>. 
/ --- addr РАО 
(ASCII 39) Used т the form: 

‘nnn 


Leaves the parameter field address of dictionary word nnnn. 
As a compiler directive, executes in a colon-definition to 
compile the address as a literal. 

( Used in the form: РАО 
( cccc ) j 
Ignore a comment that will be delimited by a right 
parenthesis on the same line. May occur during execution or 
in a colon-definition. A blank after the leading parenthesis is 
required. 

ЕЗ Тһе run-time procedure, compiled by ." C+ 
which transmits the following in-line text to the selected 
output device. See ." 

(; CODE) The run-time procedure, compiled by , CODE, that rewrites 
the code field of the most recently defined word to point to 
the following machine code sequence. See , CODE. 

(+LOOP) n --- C2 
The run-time procedure compiled by +LOOP, which 
increments the loop index by n and tests for loop completion. 
See +LOOP. 

(ABORT) Executes after an error when WARNING is —1. This word 
normally executes ABORT, but may be altered (with care) to 
a user's alternative procedure. 

(DO) The run-time procedure compiled by DO which moves the 
loop control parameters to the return stack. See DO. 

——————— ,H'ÁG NE 
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(ШМЕ) 


((ООР) 


(NUMBER) 


ү 


*/MOD 





addr! addr2 --- рѓа b tf (ok) 
addr! addr2 --- ff (bad) 


Searches the dictionary starting at the name field address 
addr2, matching t the text a addrl. Return parameter field 
address, length byte of name field and boolean true for a 
good match. If no match is found, only a boolean false is 
left. 
п] n2 --- addr count 
Convert the line number п1 and the screen n2 to the tape 
buffer address containing the data. A count of 64 indicates 
the full line text length. 

C2 
The run-time procedure compiled by LOOP which 
increments the loop index and tests for loop completion. 
See LOOP 
dl аааг1 --- 42 addr2 
Convert the ascii text beginning at addr1+1 with regard to 
BASE. The new value is accumulated into double number 
dl, being left as d2. Addr2 is the address of the first 
unconvertable digit. Used by NUMBER. 


nl n2 --- prod LO 
Leave the signed product of two signed numbers. 
nl n2 n3 --- n4 LO 


Leave the ratio n4 - n1*n2/n3 where all are signed 
numbers. 

Retention of an intermediate 31 bit product permits greater 
accuracy than would be available with the sequence: 

М1 n2* n3/ 

nl n2 n3 --- n4 n5 LO 
Leave the quotient n5 and remainder n4 of the operation 
n1*n2/n3 

A 31 bit intermediate product is used as for */. 

nl n2 --- sum LO 
Leave the sum of п1 + n2 

n addr --- LO 
Add n to the value at the address. Pronounced 
"plus-store". 

nl n2 --- n3 " ‚ 

Apply the sign of п2 to п1, which is left аз n3. 
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+ LOOP 


+ ORIGIN 


DUP 


FIND 


— TRAILING 


nl --- (run) 

Used in a colon-definition in the form: 

Оо... nl +LOOP At run-time, LOOP selectively controls 
branching back to the corresponding DO based on n1, the 
loop index and the loop limit. The signed increment n1 is 
added to the index and the total compared to the limit. 
The branch back to DO occurs until the new index is equal 
to or greater than the limit (п1>7), ог until the new index 
is equal to or less than the limit п1< ). Upon exiting the 
loop, the parameters are discarded and execution 
continues ahead. 


" --- addr 
Leave the memory address relative by n to the origin 
parameter area. n is the minimum address unit, either 
byte or word. 
n --- LO 
Store n into the next available dictionary memory cell, 
advancing the dictionary pointer. (comma) 
nl n2 --- diff LO 
Leave the difference of n1-n2 

РАДО 
Continue interpretation with the next screen (Pronounced 
next-screen). 
nl --- п (if zero) 
nl --- nl nl (non zero) LO 
Reproduce n1 only if it is non-zero. This is usually used to 
copy a value just before IF, to eliminate the need for an 
ELSE part to drop it. 
--- pfa b tf (found) 
--- ff (not found) 
Accepts the next text word (delimited by blanks) in the 
input stream to HERE, and searches the CONTEXT and then 
CURRENT vocabularies for a matching entry. If found, the 
dictionary entry's parameter field address, its length byte, 
and a boolean true is left. Otherwise, only a boolean false 
is left. 
addr n1 --- addr n2 
Adjusts the character count n1 of a text string beginning 
address to suppress the output of trailing blanks. i.e. the 
characters at addr +n1 to addr -- n2 are blanks. 
n --- LO 


= 
= 
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РО њена лынан киске ланаца. аата аала ней 
Print a number from a signed 16 bit two's complement 
value, converted according to the numeric BASE. A trailing 
blanks follows. Pronounced "dot". 

4 Used in the form: .” cccc" P,LO 
Compiles an in-line string cccc (delimited by the trailing") 
with an execution procedure to transmit the text to the 
selected output device. If executed outside a definition, . 
will immediately print the text until the final ". 

.R nl n2 --- 

Print the number nl right aligned in a field whose width is 
n2. No following blank is printed. 


" 


nl n2 --- quot LO 
Leave the signed quotient of n1/n2. 
MOD п] n2 --- rem quot LO 


Leave the remainder and signed quotient of n1/n2. The 
remainder has the sign of the dividend. 

123 --n 
These small numbers are used so often that it is attractive 
to define them by name in the dictionary as constants. 

< п --- f LO 
Leave a true flag if the number is less than zero 
(negative), otherwise leave a false flag. 

f= new f Lo 
Leave a true flag if the number is equal to zero, otherwise 
leave a false flag. 

BRANCH f --- C2 
The run-time procedures to conditionally branch. If f is 
false (zero), the following in-line parameter is added to 
the interpretive pointer to branch ahead or back. Compiled 
by IF, UNTIL, and WHILE. 


1+ nl --- n2 L1 
Increment п1 by 1. 
2+ nl --- n2 


Leave nl incremented Бу 2. 

P,E,LO 
Used in the form called a colon-definition: 
Ж... ы + + 
Creates а dictionary entry defining cccc as equivalent to 
the following sequence of Forth word definitions’... ' 
until the next ';' ог"; CODE’. The compiling process is done 
by the text interpreter as long as STATE is non-zero. Other 
details are that the CONTEXT vocabulary and set to the 
CURRENT vocabulary and that words with the precedance 
bit set (P) are executed rather than being compiled. 


.. 


ч 
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; CODE 
5 


<# 


<BUILDS 


РК 


ФСОМР 
? CSP 


РЕККОК 


ігие. 
ИН 


РАСЛО 
Terminate а colon-definition and stop further compilation. 
Compiles the run-time ; S. 
Used with Forth assembler. 
Stop interpretation of a screen ; S is also the run-time 
word compiled at the end of a colon-definition which 
returns execution to the calling procedure. 
nl n2 --- + LO 
Leave a true flag if n1 is less than n2; otherwise leave a 
false flag. 
Setup for pictured numeric output formatting using the 
words: 
< ## #5 SIGN # > 
The conversion is done оп a double number producing text 
at PAD. 
Used within a colon-definition: C,LC 
: сссс <BUILDS... 

СЕЎ? vs | 

Each time cccc is executed, <BUILDS defines a new word 
with a high-level execution procedure. Executing cccc in 
the form: cccc nnnn uses <BUILDS to create a dictionary 
entry for nnnn with a call to the DOES> part for nnnn. 
When nnnn is later executed, it has the address of its 
parameter area on the stack and executes the words after 
DOES> in сссс. <BUILDS and DOES> allow run-time 
procedures to be written in high-level rather than in 
assembler code. 


nl n2 --- + LO 
Leave a true flag if nl =n2; otherwise leave a false flag. 

nl n2 --- + LO 
Leave a true flag if n1 is greater than n2; otherwise a false 
flag. 

n --- c,LO 


Remove a number from the computation stack and place 
as the most accessable on the return stack. Use should be 
balanced with R> in the same definition. 

addr -- LO 
Print the value contained at the address in free format 
according to the current base. 

Issue error message if not compiling. 

Issue error message if stack position differs from value in 
CSP. 

f п --- 

Issue an error message number n, if the boolean flag is 
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?EXEC 
?LOADING 
?PAIRS 


?STACK 


@ 


ABORT 


ABS 


AGAIN 


ALLOT 


AND 


B/SCR 


BACK 


BASE 


BEGIN 


Issue an error message if not executing. 

Issue an error message if not loading. 

nl n2 --- 

Issue an error message if п1 does not equal n2. The 
message indicates that compiled conditionals do not 
match. 

Issue an error message if the stack is out of bounds. This 
definition may be installation dependent. 


addr --- n LO 
Leave the 16 bit contents of address. 
Clear the stacks and enter the execution state. LO 


Return control to the operators terminal, printing a 
message appropriate to the installation. 

n---u LO 
Leave the absolute value of n as v. 

Used in a colon-definition in the form: BEGIN . . . AGAIN 
At run-time, AGAIN forces execution to return to 
corresponding BEGIN. There is no effect on the stack. 
Execution cannot leave this loop (unless R>DROP is 
executed one level below). 

n --- LO 
Add the signed number to the dictionary pointer DP. May 
be used to reserve dictionary space or re-origin memory. n 
is with regard to computer address type (byte or word). 

nl n2 --- n3 LO 
Leave the bitwise logical and of n1 and n2 as n3. 

--- п 

This constant leaves the number of blocks per editing 
screen. By convention, an editing screen is 1024 bytes 
organised as 16 lines of 64 characters each. 

addr --- 

Calculate the backward branch offset from HERE to addr 
and compile into the next available dictionary memory 
address. 

--- addr U,LO 
A user variable containing the current number base used 
for input and output conversion. 

Occurs in a colon-definition in form: 

BEGIN . . . UNTIL 

BEGIN . . . AGAIN 

BEGIN . . . WHILE. . . REPEAT 


Калила осма житии AR NEN ANNE T TOT SENTIT UPS OSE ET SU HUS аа аа VR SCIT лан 
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BL 


BLANKS 


BLK 


BLOCK 


BRANCH 


BYE 
C! 


се 
СРА 


CLS 
CMOVE 


COLD 


At run-time, BEGIN marks the start of a sequence that may 
be repetitively executed. It serves as a return point from 
the corresponding UNTIL, AGAIN or REPEAT. When 
executing UNTIL, a return to BEGIN will occur if the top of 
the stack is false; for AGAIN and REPEAT a return to 
BEGIN always occurs. 


--- С 
А constant that leaves the ascii value for "blank". 


addr count --- 
Fill an area of memory beginning at addr with blanks. 


--- addr U,LO 
A user variable containing the block number being 
interpreted. If zero, input is being taken from the terminal 
input buffer. 
n --- addr LO 
Leave the memory address of the block buffer containing 
block n. If the block is not already in memory, it is 
transferred from tape. 

C2,LO 
The run-time procedure to unconditionally branch. An in- 
line offset is added to the interpretive pointer If to branch 
ahead or back. BRANCH is compiled by ELSE, AGAIN, 
REPEAT. 
Return to basic. 
b addr --- 
Store 8 bits at address. On word addressing computers, 
further specification is necessary regarding byte 
addressing. 


Store 8 bits of b into the next available dictionary byte, 
advancing the dictionary pointer. 


addr --- b 
Leave the 8 bit contents of memory address. 
pfa --- cfa 


Convert the parameter field address of a definition to its 
code field address. 
Clears the screen. 
from to count --- 
Move the specified quantity of bytes beginning at address 
from to address to. The contents of address from is moved 
first proceding toward high memory. 

The cold start procedure to adjust the dictionary pointer to 
the minimum standard and restart via ABORT. May be 
called from the terminal to remove application programs 


and restart. 
пали 
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АЕ. 

COMPILE C2 
When the word containing COMPILE executes, the 
execution address of the word following COMPILE is copied 
(compiled) into the dictionary. This allows specific 
compilation situations to be handled in addition to simply 
compiling an execution address (which the interpreter 
already does). 

CONSTANT n --- LO 
A defining word used in the form: n CONSTANT cccc to 
create word cccc, with its parameter field containing n. 
When cccc is later executed, it will push the value of n to 
the stack. 


CONTEXT --- addr ОДО 
А user variable containing a pointer to the vocabulary 
within which dictionary searches will first begin. 

COUNT addr1 --- addr2 and byte LO 
Leave the byte address addr2 and bute count n of a 
message text beginning at address addr]. It is 
presumed that the first byte at addr] contain the text 
byte count and the actual text starts with the second 
byte. Typically COUNT is followed by TYPE. 

CR LO 
Transmit a carriage return and line feed to the selected 
output device. 

CREATE A defining word used in the form: CREATE cccc 
by such words as CODE and CONSTANT to create a 
dictionary header for a Forth definition. The code field 
contains the address of the words parameter field. The 
new word is created in the CURRENT vocabulary. 

CSP --- addr U 
A user variable temporarily storing the stack pointer 
position, for compilation error checking. 


D+ ат d2 --- dsum 
Leave the double number sum of two double numbers. 
D+ — dl n --- d2 
Apply the sign of n to the double number dl, leaving it 
as d2. 
D. d --- L1 


Print a signed double number from a 32 bit two's 
complement value. The high-order 16 bits are most 
accessable on the stack. Conversion is performed 
according to the current BASE. A blank follows. 
Pronounced D-dot. 


«dq 





О.К 


DABS 
DECIMAL 


DEFINITIONS 


DIGIT 


DLITERAL 


DMINUS 


DO 


d n --- 

Print a signed double number d right aligned in a field n 
characters wide. 

d --- ud 

Leave the absolute value ud of a double number. 

Set the numeric conversion BASE for decimal 

input-out. LO 
Used in the form: L1 
cccc DEFINITIONS 

Set the CURRENT vocabulary to the CONTEXT 
vocabulary. 

In the example, executing vocabulary name cccc made 
it the CONTEXT vocabulary and executing DEFINITIONS 
made both specify vocabulary cccc. 

сп! --- n2 tf (ok) 

сп! --- ff (bad) 

Converts the ascii character c (using base n1) to its 
binary equivalent n2, accompanied by a true flag. If the 
conversion is invalid, leaves only a false flag. 

d --- d (executing) 

d --- (compiling) P 
If compiling, compile a stack double number into a 
literal. Later execution of the definition containing the 
literal will push it to the stack. If executing, the number 
will remain on the stack. 

dl --- d2 | 
Convert 91 to its double number two's complement. 

nl n2 --- (execute) P,C2,LO 
Occurs in а colon-definition in form: 

DO...LOOP 

DO... ЖООР 

At run-time, DO begins a sequence with repetitive 
execution controlled by a loop limit n1 and an index 
with initial value n2. DO remove these from the stack. 
Upon reaching LOOP the index is incremented by one. 
Until the new index equals or exceeds the limit, 
execution loops back to just after DO; otherwise the 
loop parameters are discarded and execution continues 
ahead. Both n1 and n2 are determined at run-time and 
may be the result of other operations. Within a loop ‘I’ 
will copy the current value of the index to the stack. 
See |, LOOP, -ҒІООР, LEAVE. 
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DOES> LO 
A word which defines the run-time action within a high- 
level defining word. DOES> alters the code field and 
first parameter of the new word to execute the 
sequence of compiled word addresses following DOES>. 
used in combination with <BUILDS. When the DOES> 
part executes it begins with the address of the first 
parameter of the new word on the stack. This allows 
interpretation using this area or its contents. Typical 
uses include the Forth assembler, multi-diminsional 
arrays, and compiler generation. 

DP --- addr U,L 
A user variable, the dictionary pointer, which contains 
the address of the next free memory above the 
dictionary. The value may be read by HERE and altered 
by ALLOT. 

DPL --- addr U,LO 
A user variable containing the number of digits to the 
right of the decimal on double integer input. It may also 
be used hold output column location of a decimal point, 
in user generated formatting. The default value on 
single number inputs is —1. 


DROP n --- LO 
Drop the number from the stack. 

DUP п --- пп [О 
Duplicate the value on the stack. 

ELSE Occurs within a colon-definition in the form: 


Е... ELSE . . . ENDIF 

At run-time, ELSE executes after the true following IF. 
ELSE forces execution to skip over the following false 
part and resumes execution after the ENDIF. It has no 
stack effect. 

EMIT C --- LO 
Transmit ascii character c to the selected output for 
each character output. 

EMPTY-BUFFERS mark all block-buffers as empty, not necessarily 
affecting the contents. This is also an initialization 
procedure before first use of the tape. 

ENCLOSE addr c --- 

DDRI п] n2 пЗ е | | 

The text scanning primitive used by WORD. From the 

text address addr! and an ascii delimiting character c, 

is determined the byte offset to the first non-delimiter 

character n1, the offset to the first delimiter after the 

text n2, and the offset to the first character not 
_——-+——————————————————— 
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ЕМО 


ENDIF 


ERASF 


ERROR 


EXECUTE 


EXPECT 


FAST 
FENCE 


FILL 


FIRST 


included. This procedure will not process past an ascii 
‘null’, treating it as an unconditional delimiter. 

P,C2,LO 
This is an ‘alias’ or duplicate definition for UNTIL. 
Occurs in a colon-definition form: 
IF... ENDIF 
IF... ELSE... ENDIF 
At run-time, ENDIF serves only as the destination of a 
forward branch from IF or ELSE. It marks the conclusion 
of the conditional structure. THEN is another name for 
ENDIF. Both names are supported in ZX-FORTH. See 
also IF and ELSE. 
addr n --- 
Clear a region of memory to zero from addr over n 
addresses. 
line --- in blk 
Execute error notification and re-start of system. 
WARNING is first examined. If 1, the text of line n, 
relative to screen 4 of drive 0 is printed. This line 
number may be positive or negative, and beyond just 
screen 4. If WARNING-O, n is just printed as a message 
number (non disc installation). If WARNING is —1, the 
definition (ABORT) is executed which executes the 
system ABORT. The user may cautiously modify this 
execution by altering (ABORT). ZX-FORTH saves the 
contents of IN and BLK to assist in determining the 
location of the error. Final action is execution of QUIT. 
addr -- 
Execute the definition whose code field address is on the 
stack. The code field address is also called the compilation 
address. : 
addr count --- LO 
Transfer characters from the terminal to address, until a 
“return” or the count of characters have been received. 
One or more nulls are addded at the end of the text. 
Place ZX81 in fast mode. 
--- addr U 
A user variable containing an address below which 
FORGETTING is trapped. To forget below this point the 
user must alter the contents of FENCE. 
addr quan b --- 
Fill memory at the address with the specified quantity of 
byte b. 
--- П 


пи ______·___ј_„.__________"_"__"____"_________--Р———"— __--—“— == 
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| 


FORGET 


FORTH 


HERE 
HEX 


HLD 


HOLD 


HOME 


A constant that leaves the address of the block buffer. 
E,LO 
Executed in the form: 
FORGET cccc 
Delete definition named cccc from the dictionary with all 
entries physically following it. In ZX-FORTH, an error 
message will occur if the CURRENT and CONTEXT 
vocabularies are not currently the same. 
РДІ 
The пате of the primary vocabulary. Execution makes 
FORTH the CONTEXT vocabulary. Until additional user 
vocabularies are defined, new user definitions become a 
part of FORTH. FORTH is immediate, so it will execute 
during the creation of a colon-definition, to select this 
vocabulary at compile time. 
--- addr LO 
Leave the address of the next available dictionary location. 
LO 
Set the numeric conversion base to sixteen (hexadecimal). 
--- addr LO 
A user variable that holds the addresses of the latest 
character of text during numeric output conversion. 
с --- LO 
Used between <# and #> to insert an ascii character into a 
pictured numeric output string. eg. 2E HOLD will place a 
decimal point. 
Move cursor to top left of screen. 
--n C,LO 
Used within a DO-LOOP to copy the loop index to the 
stack. Other use is implementation dependent. See R. 
addr --- 
Print a definition's name from its name field address. 
f --- (run-time) P,C2,LO 
Occurs in a colon-definition in form: 
IF (ір)... ENDIF 
IF (ір)... ELSE (р)... ENDIF 
At run-time, IF selects execution based on a boolean flag. 
If f is true (non-zero), execution continues ahead through 
the true part. If f is false (zero), execution skips till just 
after ELSE to execute the false part. After either part, 
execution resumes after ENDIF. ELSE and its false part are 
optional.; if missing, false execution skips to just after 
ENDIF. 








IMMEDIATE Mark the most recently made definition so that when 


INTERPRET 


KEY 


LATEST 


LEAVE 


LFA 


LIMIT 


LIST 


encountered at compile time, it will be executed rather 
than being compiled. 
i.e. the precedance bit in its header is set. This method 
allows definitions to handle unusual compiling situations, 
rather than build them into the fundamental compiler. The 
user may force compilation of an immediate definition by 
preceeding it with (COMPILE). 
--- addr LO 
A user variable containing the byte offset within the 
current input text buffer (terminal or disc) from which the 
next text will be accepted. WORD uses and moves the 
value of IN. 
The outer text interpreter which sequentially executes or 
compiles text from the input stream (terminal or disc) 
depending on STATE. If the word name cannot be found 
after a search of CONTEXT and then CURRENT it is 
converted to a number according to the current base. That 
also failing an error message echoing the name with a “27 
will be given. Text input will be taken according to the 
convention for WORD. If a decimal point is found as part of 
a number, a double number value will be left. The decimal 
point has no other purpose than to force this action. See 
NUMBER. 
--- С г E 
Leave the ascii of the next terminal key struck. 
--- addr 
Leave the name field address of the topmost word in the 
CURRENT vocabulary. 

САО 
Force termination of a DO-LOOP at the next opportunity by 
setting the loop limit equal to the current value of the 
index. The index itself remains unchanged, and execution 
proceeds normally until LOOP or +LOOP is encountered. 
рта --- На 
Convert the parameter field address of a dictionary 
definition to its link field address. 
--- N 
A constant leaving the address just above the highest 
memory available for a tape buffer. Usually this is the 
highest system memory. 
n --- LO 
Display the ascii text of screen n on the selected output 
device. 


PRN аеннан анала йадан: чагъа ј„_______"___"______"__"__"_____________-_-- _-- “== 
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SCR contains the screen number during and after this 
process. 

LIT --- П C2,LO 
Within a colon-definition, LIT is automatically compiled 
before each 16 bit literal number encountered in input 
text. Later execution of LIT causes the contents of the next 
dictionary address to be pushed to the stack. 

LITERAL n --- (compiling) P,C2,LO 
If compiling, then compile the stack value n as a 16 bit 
literal. This definition is immediate so that it will execute 
during a colon definition. The intended use is: 

: xxx (calculate) LITERAL ; 

Compilation is suspended for the compile time calculation 
of a value. 

Compilation is resumed and LITERAL compile this value. 

LOAD п --- LO 
Begin interpretation of screen n Loading will terminate at ; 


See ;5 апа -- . 

LOOP Occurs in a colon-definition in form: 
ВО... LOOP 
At run-time, LOOP selectively controls branching back to 
the corresponding DO based on the loop index and limit. 
The loop index is incremented by one and compared to the 
limit. The branch back to Do occurs until the index equals 
or exceeds the limit; at that time, the parameters are 
discarded and execution continues ahead. 

M* nl n2 --- d 
A mixed magnitude math operation which leaves the 
double number signed product of two signed numbers. 

M/ dnl --- n2 n3 
A mixed magnitude math operator which leaves the signed 
remainder n2 and signed quotient n3, from a double 
number dividend and devisor n1. The remainder takes its 
sign from the dividend. 

M/MOD udl u2 --- u3 ud4 
An unsigned mixed magnitude math operation which 
leaves a double quotient ud4 and remainder иЗ, from a 
double divident 091 and single divisor u2. 

MAX nl n2 --- max LO 
Leave the greater of two numbers. 

MESSAGE 


„3 


Print ? MSG # n 
МІМ nl n2 --- min LO 
Leave the smaller of two numbers. 


« 0 cc2———————————————BáMÀHmeeto n 
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MINUS 
MOD 
NEXT 
NFA 


NUMBER 


OR 


OUT 


OVER 


PAD 


PFA 


QUERY 


QUIT 


R# 


R/W 


nl --- n2 LO 
Leave the two's complement of a number. 

п] n2 - mod LO 
Leave the remainder of n1/n2, with the same sign as nl. 
Used with FORTH assembler 

pfa --- nfa 

Convert the parameter field address of a definition to its 
name field. 

addr --- d 

Convert a character string left at addr with a preceeding 
count, to a signed double number, using the current 
numeric base. If a decimal point is encountered in the 
text, the position will be given in DPL, but no other effect 
occurs. If numeric conversion is not possible, an error 
message will be given. 

nl n2 -- or LO 
Leave the bit-wise logical or of two 16 bit values. 

--- addr 

A user variable that contains a value incremented by EMIT. 
The user may alter and examine OUT to control display 


formating. 

nl n2 --- nl n2 nl LO 
Copy the second stack value, placing it as the new top. 

--- addr LO 


Leave the address of the text output buffer, which is a 
fixed offset above HERE. 
nfa --- pfa 
Convert the name field address of a compiled definition to 
its parameter field address. 
Input 80 characters of text (or until a "return") from the 
operator's terminal. Text is positioned at the address 
contained in TIB with IN set to zero. 

L1 
Clear the return stack, stop compilation, and return control 
to the operator's terminal. No message is given. 
--- N 
Copy ће top of the return stack to the computation stack. 
--- addr | U 
A user variable which may contain the location of an 
editing cursor, or other file related function. 
addr blk f --- 
The fig-FORTH standard disc read-write linkage. addr 
specifies the source or destination block buffer, blk is the 
sequential number of the referenced block; and f is a flag 
for f-0 write and f-1 read. R/W determines the location on 
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R> 
RO 


REPEAT 


RSMUDGE 


ROT 
RP! 


SLOW 
5->0 


52 
SCR 


SIGN 


SMUDGE 


SP! 


$Р@ 


v Du 

y 

n 
re | 


mass storage, performs the read-write and performs апу 
error checking. 
--- П LO 
Remove the top value from the return stack and leave it 
on the computation stack. See >R and R. 
--- addr U 
A user variable containing the initial location of the return 
stack.Pronounce R-zero. See RP! 

Р,С2 
Used within а colon-definition in the form: 
BEGIN ... WHILE. . . REPEAT 
At run-time, REPEAT forces an unconditional branch back 
to just after the corresponding BEGIN. 
Reset smudge bit of the most recent entry in the 


dictionary. 
nl n2 n3 --- n2n3 nl LO 
Rotate the top three values on the stack, bringing the third 
to the top. 


A computer dependend procedure to initialize the return 

stack pointer from user variable RO. 

Place ZX81 in Slow mode. 

п --- а 

Sign extend а single number to form а double number. 

--- addr U 

A user variable that contains the initial value for the stack 

pointer. Pronounced S-zero. See SP! 

--- addr U 

A user variable containing the screen number most 

recently reference by LIST. 

nd---d LO 

Stores an ascii “-” sign just before a converted numeric 

output string in the text output buffer when n is negative. 

n is discarded, but double number d is maintained. Must 

be used between <# and #>. 

Used during word definition to toggle the “smudge bit” in 

a definitions name field. This prevents an uncompleted 

definition from being found during dictionary searches, 

until compiling is compiled without error. 

A computer dependent procedure to initialize the stack 

pointer from SO. 

--- addr 

A computer dependent procedure to return the address of 

the stack position to the top of the stack as it was before 

SP@ was executed. 

(eg. 1 2 5Р@ @ . . . would type 2 2 1) 

киттин 

=55= 





SPACE 


SPACES 


STATE 


SWAP 


TASK 


THEN 


TIE 


TOGGLE 


TRAVERSE 


TYPE 


U* 


U/ 


UNTIL 


LO 


Transmit an ascii blank to the output device. 

n --- LO 

Transmit n ascii blanks to the output device. 

--- addr LO,U 

A user variable containing the compilation state. A non- 

zero value indicates compilation. The value itself may be 

implementation dependent. 

nl n2 --- п2 п1 LO 

Exchange the top two values on the stack. 

A no-operation word which can mark the boundary 

between applications. By forgetting TASK and re- 

compiling, an application can be discarded in its entirety. 
P,CO,LO 

An alias for ENDIF. 

--- addr U 

A user variable containing the address of the terminal 

input buffer. 

addr b --- 

Complement the contents of addr by the bit pattern b. 

аддг1 n --- addr2 

Move across the name field of ZX-FORTH variable length 

name field. addr! is the address of either the length byte 

or the last letter. If n-1, the motion is toward hi memory; if 

n = —1, the motion is toward low memory. The addr2 

resulting is address of the other end of the name. 

addr count --- LO 

Transmit count characters from addr to the selected output 

device. 

ul u2 --- ud 

Leave the unsigned double numer product of two unsigned 

numbers. 

ud ul --- u2 u3 

Leave the unsigned remainder u2 and unsigned quotient 

u3 from the unsigned ed double dividend ud and 

unsigned divisor ul. 

f --- (run-time) 

occurs within a colon-definition in the form: 

BEGIN . . . UNTIL 

At run-time, UNTIL controls the conditional branch back 

to the corresponding BEGIN. If f is false, execution 

returns to just after BEGIN; if true execution continues 

ahead. 





. USER 


VARIABLE 


VOC-LINK 


VOCABULARY 


VLIST 


WARNING 
WHILE 


n --- LO 
A defining word used in the form: 
n USER cccc 
which creates a user variable cccc. The parameter field 
of cccc contains n as a fixed offset relative to the user 
pointer register UP for this user variable. When cccc is 
later executed, it places the sum of its offset and the 
user area base address on the stack as the storage 
address of that particular variable. 
E,Lu 

A defining word used in the form: 
n VARIABLE cccc 
When VARIABLE is executed, it creates the definitions 
cccc with its parameter field initialized to n. When cccc 
is later executed, the address of its parameter field 
(containing n) is left on the stack, so that a fetch or 
store may access this location. 
--- addr U 
A user variable containing the address of a field in the 
definition of the most recently created vocabulary. АП 
vocabulary names are linked by these fields to allow 
control for FORGETTING thru multiple vocabularies. 

| EL 
A defining word used in the form: 
VOCABULARY cccc 
to create a vocabulary definition cccc. Subsequent use 
of cccc will make it the CONTEXT vocabulary which is 
searched first by INTERPRET. The sequence "cccc 
DEFINITIONS" will also make cccc the CURRENT 
vocabulary into which new definitions are placed. 
In ZX-FORTH, cccc will be so chained as to include all 
definitions of the vocabulary in which cccc is itself 
defined. All vocabularies ultimately chain to Forth. By 
convention, vocabulary names are to be declared 
IMMEDIATE. See VOC-LINK. 
List the names of the definitions in the context 
vocabulary. 
"Break" will terminate the listing. 
Must be O for no disc installation. 
f --- (run-time) | 
Occurs in a colon-definition in the form: 
BEGIN . . . WHILE (ір)... REPEAT 


Р, Са 


= 5 7 


WIDTH 
WORD 


XOR 


[ 
(Shift S) 


[COMPILE] 


] 
(Shift С) 


At run-time, WHILE selects conditional execution based 
on boolean flag f. If f is true (non-zero), WHILE 
continues execution of the true part thru to REPEAT, 
which then branches back to BEGIN. If f is false (zero), 
execution skips to just after REPEAT, exiting the 
structure. 
Maximum length of word name, 31 in ZX-Forth 
С =... 
Read the next text characters from the input stream 
being interpreted, until a delimiter c is found, storing 
the packed character string beginning at the dictionary 
buffer HERE. WORD leaves the character count in the 
first two or more blanks. Leading occurrances of c are 
ignored. If BLK is zero, text is taken from the terminal 
input buffer, otherwise from the block stored in BLK. 
See BLK, IN. 
ПІ n2 --- xor L1 
Leave the bitwise logical exclusive or of two values. 

Р,11 
Used іп а colon-definition in form: 
: xxx [ words ] more ; 
Suspend complication. The words after ( are executed, 
not compiled. This allows calculation or compilation 
exceptions before resuming compilation with ]. See 
LITERAL, ). 

РС 
Used їп а colon-definition in form: 
: xxx [COMPILE] FORTH ; 
[COMPILE] will force the compilation of an immediate 
definition, that would otherwise execute during 
compilation. The above example will select the FORTH 
vocabulary when xxx executes, rather than at compile 
time. 

L1 

Resume compilation, to the completion of a colon- 
definition. 
See [. 
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7.1.0 EDITOR USER MANUAL 


FORTH organises its mass storage into screens of 1024 characters. ZX- 
FORTH may have one screen in memory at a time for storing text. The 
screens are numbers 0-32768. 


Each screen is organised as 16 lines with 64 characters per line. The 
FORTH screens are merely an arrangement of virtual memory and do not 
correspond to the screen format of the ZX81, T/S1000. 


7.1.1 SELECTING a SCREEN and INPUT of text 


To start an editing session, the user types EDITOR to invoke the 
appropriate vocabulary. 


The screen is given a number and this is selected, using: . 
n CLEAR (clear screen n and select for editing). 


To input a new test to screen n after CLEAR, the P (put) command is 
used. 


Example: 

0 P THIS IS HOW 

1 P TO INPUT TEXT 

2 P TO LINES 0, 1, 2 OF THE SELECTED SCREEN. 


NOTE: <N/L:E> = NEWLINE OR ENTER 


7.2.0 LINE EDITING 
During this description of the editor, reference is made to PAD. This is a 


text buffer which may hold a line of text to be found or deleted by a 
string editing command. 
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7.2.1 LINE EDITING COMMANDS 


En р Delete line n but hold it in PAD. Line 15 becomes as lines п+ 1 to 
m move up 1 line. 


n E Erase line n with blanks. 


n | Insert the text from PAD at line n, moving the old line n and 
following lines down. Line 15 is lost. 


n H Hold line n at PAD (used by system more often than by user). 


n R Replace line n with the text in PAD. 


n S Spread at line n. n and following lines move down 1 line. Line n 
becomes blank. Line 15 is lost. 


7.2.2 SCREEN EDITING COMMANDS 


n LIST 
n CLEAR 
L 
FLUSH 
# LEAD 
# LAG 
-MOVE 
H 

Е 

$ 

D 

M 

T 


List screen n and select it for editing: if screen n is not the 
current screen it will load it from tape. 


Clear screen n with blanks and select it for editing. 


List the current screen. The cursor line is relisted after the 
screen listing, to show the cursor position. 

Used at the end of an editing session to save the current 
screen onto tape. 


--- line-address offset-to-cursor 

--- cursor-address count-after-cursor-till-EOL 

addr line-no --- 

Move a line of text from addr to line of current screen. 
АМ 

Hold numbered line at РАР. 

nd 

Erase line n with blanks. 

ИТ 

Spread. Lines п and following move down. п becomes 
blank. 

А 

Delete line п, but hold in PAD. 

еі 

Move cursor Бу a signed amount and print its line. 
NL. 

Type line n and save in PAD. 


TEETER LI ыы О О ОИ ы тун ла 


„> 





List the current screen. 


П --- 
Replace line n with the text in PAD. 
n --- 

Put the following text on line n. 


7.3.1 CURSOR CONTROL and STRING EDITING 


The screen of text being edited resides in a buffer area of storage. The 
editing cursor is a variable, holding an offset into this buffer area. 
Commands are provided from the user to position the cursor, either 


directly or by searching for a string of buffer text, and to insert or delete 


text at the cursor position. 


7.3.2 COMMANDS to POSITION the CURSOR 


TOP 
п М 


Position the cursor at the start of the screen. 


Move the cursor by n characters and the cursor line. The 
position of the cursor on its line is shown by a __ 
(underline). 


7.3.3 STRING EDITING COMMANDS 


F text 


N 


X text 
C text 
TILL text 


NOTE: 


Search forward from the current cursor position until string 
"text" is found. The cursor is left at the end of the string 
and the cursor line printed. If the string is not found an 
error message, , is given and the cursor re-positioned 
to the top of the screen. 

Used after F to back up the cursor by the length of the most 
recent text. 


Find the next occurrence of the string found by an F 
command. 


Find and delete the next occurrence of the string "text". 
Copy in text to the cursor line at the cursor position. 


Delete, on the cursor line, from the cursor, till the end of 
string “text”. 


Typing С with no text will copy a null into the text at the 
cursor position. This will abruptly stop later compiling! To 
delete this error type TOP X <N/L:E>. 
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ТОР 


СТЕАК 


FLUSH 


-TEXT 


FIND 


DELETE 


N 


TILL 


П --- 
Spread at line п and insert text from РАР. 


Position editing cursor at top of screen. 


в. 
Clear screen n, сап Бе used to select screen n for editing. 
Write all updated buffers to tape. 

Addr 1 count Addr 2 --- boolean 

True if strings exactly match. 

cursor-addr bytes-left-till-EOL str-addr str-count 

tf cursor-advance-till-end-of-matching-text 

ff bytes-left-till-EOL 

Match the string at str-addr with all strings on the cursor 
line forward from the cursor. The arguments left allow the 
cursor R# to be updated either to the end of the matching 
text or to the start of the next line. 

--- f 

Scan the cursor line for a match to PAD text. Return flag 
and update the cursor R# to the end of matching text, or to 
the start of the next line if no match is found. 

Search for a match to the string at PAD, from the cursor 
position till the end of screen. If not match found issue an 
error message and reposition the cursor at the top of 
screen. 

n --- 

Delete n characters prior to the cursor. 

Find next occurrences of PAD text. 

Input following text to PAD and search for match from 
cursor position till end of screen. 


Backup cursor by text in PAD. 

Delete next occurrence of following text. 

Delete on cursor line from cursor to end of the following 
text. 


ан ЈИ 
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Spread at cursor and сору the following text into the cursor 
line. 


7.4.0 EDITOR GLOSSARY 


| 

| 
ТЕХТ 
LINE 
WHERE 

к? 


# LOCATE 


C =... 
Accept following text to PAD. c is text delimiter. 
n --- addr 


Leave address of line n of current screen. This address will 
be in the disc buffer area. 

nl n2 --- 

n2 is the block no., nl is offset into block. If an error is 
found in the source when loading, the recovery routine 
ERROR leaves these values on the stack to help the user i 
locate the error. WHERE uses these to print the screen and 
line numbers and a picture of where the error occurred. 
--- addr 

A user variable which contains the offset of the editing 
cursor from the start of the screen. 

--- n] n2 

From the cursor position, determine the line-no n2 and the 
offset into the line n1. 
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ZX FORTH 


Forth is a compiled language, so programs run very fast, usually five 


times faster than in BASIC. FORTH’s most distinctive feature is its 
flexibility. Its unit is the word. The programmer can use existing words to 
define new ones which can then be used in further definitions. A major 
expansion for your Timex Sinclair computer. 





ASK YOUR DEALER ABOUT THESE FINE PROGRAMS 4 


е GAMES е GAMES е GAMES • 


MARINE RESCUE: fast action underwater 
PAC RABBIT: fast action maze chase 
TRADER TRILOGY:3 complete 16K games. 
An adventure spanning 
48K 
SUBSPACE STRIKER: ik federation 
vessels from sub- 
space. 
GALAXY INVADERS: гере! fleets of invaders 
INVADERS: the classic computer game 
ZX SCRAMBLE: a fast-moving space game 
GALACTIC COMMANDO: a space war 
adventure 
BLACKJACK: as played in Vegas 
SLOTS: beat the one-armed bandits 


ZX CHESS І: 6 levels: black or white: save 
games 

ZX CHESS 11: chess master: 7 levels: champion 
rated 


1K CHESS: 1 level: no castling or en-passant 

PLANET OF FEAR: find your stolen spaceship 

INCA.CURSE: get gold out of the temple 

SHIP OF DEATH: free your ship from an alien 
. Cruiser 

GOBBLE MAN: famous arcade game: chase 
ghosts in a maze 

1K GAMES: 11 games for unexpanded 

ZX81/TS1000 

SHOOT OUT: how fast are you “оп the draw" 

BATTLE SHIPS: the classic naval war game 

POP STAR: enter the exciting world of popular 

music 
KEYS TO GONDRUN: move through a 
kingdom of magical 
adventure 

INHERITANCE: prove your financial wizardry 
and inherit your Great 
Uncle's estate 

AROUND 


EUROPE IN 80 
HOURS: 


2 


race through Europe in under 
80 hours to win 


RUN THE COUNTRY: you be the chief 
executive in your Own 
country 

ZOMBIES & SWORD 

OF PEACE: play these two exciting 


games on one tape 


FAMILY EDUCATION & HEALTH. 
& ENTERTAINMENT 


WEIGHT CONTROL: a personalized weight 
loss program* 
CONSTELLATION: your computer is your 
telescope* 
SOLAR SYSTEM FILE: a databank on the 
solar system* 
BIORHYTHMS: plot your physical, emotional, 
intellectual cycles* 
BOOK OF DAYS: facts, trivia, birthdays in a 


datafile* 

SIGNALS & MORSE CODE: learn the different 
signaling 
methods. Built in 
sound! 

FLASHCARD: memory aid, learning aid, testing 

device 

MOVIE HANGMAN: guess the movie; beat the 

Hangman 


PROGRAMMING AIDS 


Z-AID 1.0: a machine code programming aid 
ZX BUG: for debugging, editing & running 
machine codes 
ZX ASSEMBLER: powerful tool for machine 
code programs 
TOOLKIT: add 9 commands to basic; including 
renumber 
ZX FORTH: ease of basic with machine code 
speed* 
load any ZX81/TS1000 program 4 or 6 . 
times faster than normal 


FASTLOAD: 


* comes complete with a detailed guide 
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